perm filename VALVE.ALP[AL,HE] blob sn#324545 filedate 1978-01-04 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
		;
	50
		;
	52
		;
	54
		;
	56
		;
	60
		;
	62
		;$B1._T5
	64
		;$B1._T4
	66
		;$B1.CAP_TURN_FINAL
	70
		;$B1.CAP_TURN_INITIAL
	72
		;$B1.SEATED
	74
		;$B1._T3
	76
		;$B1._T2
	100
		;$B1.NUT_TURN_FINAL
	102
		;$B1.NUT_TURN_INITIAL
	104
		;$B1._T1
	106
		;$B1.BGRASP
	110
		;$B1.CAP_FINAL
	112
		;$B1.CAP
	114
		;$B1.NUT_GRASP_FINAL
	116
		;$B1.NUT_GRASP
	120
		;$B1.ORIGIN
	122
	0
	XJUMP
	L1
		;Condition monitor checker
L2:	XPUSH
	L3
	XCMFORCE
		;Stop
	XSTOP
	4
	XCMDONE
		;Create condition monitor
L1:	XCMMAK
	124
	3
	L2
	102004
	XJUMP
	L4
		;Condition monitor checker
L5:	XPUSH
	L6
	XTFRCST
	404
	XPUSH
	L3
	XCMFORCE
		;Stop
	XSTOP
	4
	XCMDONE
		;Create condition monitor
L4:	XCMMAK
	126
	3
	L5
	102004
	XMEXP
		;$B1.CAP_TURN_FINAL
	70
		;$B1._T5
	64
	0
	L7
	130
	XJUMP
	L10
L7:		;first argument
	XGTVAL
		;$B1.CAP_TURN_FINAL
	70
		;second argument
		;first argument
	XGTVAL
		;$B1._T5
	64
	XTINVRT
	XTTMUL
	XENDCLC
L10:	XMEXP
		;$B1.CAP_FINAL
	112
		;$B1._T5
	64
	0
	L11
	132
	XJUMP
	L12
L11:		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
		;second argument
	XGTVAL
		;$B1._T5
	64
	XTTMUL
	XENDCLC
L12:	XMEXP
		;$B1.CAP_TURN_INITIAL
	72
		;$B1._T4
	66
	0
	L13
	134
	XJUMP
	L14
L13:		;first argument
	XGTVAL
		;$B1.CAP_TURN_INITIAL
	72
		;second argument
		;first argument
	XGTVAL
		;$B1._T4
	66
	XTINVRT
	XTTMUL
	XENDCLC
L14:	XMEXP
		;$B1.CAP_FINAL
	112
		;$B1._T4
	66
	0
	L15
	136
	XJUMP
	L16
L15:		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
		;second argument
	XGTVAL
		;$B1._T4
	66
	XTTMUL
	XENDCLC
L16:	XMEXP
		;$B1.NUT_TURN_FINAL
	102
		;$B1._T3
	76
	0
	L17
	140
	XJUMP
	L20
L17:		;first argument
	XGTVAL
		;$B1.NUT_TURN_FINAL
	102
		;second argument
		;first argument
	XGTVAL
		;$B1._T3
	76
	XTINVRT
	XTTMUL
	XENDCLC
L20:	XMEXP
		;$B1.NUT_GRASP_FINAL
	116
		;$B1._T3
	76
	0
	L21
	142
	XJUMP
	L22
L21:		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
		;second argument
	XGTVAL
		;$B1._T3
	76
	XTTMUL
	XENDCLC
L22:	XMEXP
		;$B1.NUT_TURN_INITIAL
	104
		;$B1._T2
	100
	0
	L23
	144
	XJUMP
	L24
L23:		;first argument
	XGTVAL
		;$B1.NUT_TURN_INITIAL
	104
		;second argument
		;first argument
	XGTVAL
		;$B1._T2
	100
	XTINVRT
	XTTMUL
	XENDCLC
L24:	XMEXP
		;$B1.NUT_GRASP_FINAL
	116
		;$B1._T2
	100
	0
	L25
	146
	XJUMP
	L26
L25:		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
		;second argument
	XGTVAL
		;$B1._T2
	100
	XTTMUL
	XENDCLC
L26:	XMEXP
		;$B1.BGRASP
	110
		;$B1._T1
	106
	0
	L27
	150
	XJUMP
	L30
L27:		;first argument
	XGTVAL
		;$B1.BGRASP
	110
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XENDCLC
L30:	XMEXP
		;BARM
	14
		;$B1._T1
	106
	0
	L31
	152
	XJUMP
	L32
L31:		;first argument
	XGTVAL
		;BARM
	14
		;second argument
	XGTVAL
		;$B1._T1
	106
	XTTMUL
	XENDCLC
L32:		;Print
	XPRINT
	L33
	XPRINT
	L34
		;Assignment
	XPUSH
	L35
	XCHNGE
		;$B1.ORIGIN
	122
		;Assignment
		;first argument
	XGTVAL
		;$B1.ORIGIN
	122
		;second argument
	XPUSH
	L36
	XTTMUL
	XCHNGE
		;$B1.NUT_GRASP
	120
		;Assignment
		;first argument
	XGTVAL
		;$B1.ORIGIN
	122
		;second argument
	XPUSH
	L37
	XTTMUL
	XCHNGE
		;$B1.NUT_GRASP_FINAL
	116
		;Assignment
		;first argument
	XGTVAL
		;$B1.ORIGIN
	122
		;second argument
	XPUSH
	L40
	XTTMUL
	XCHNGE
		;$B1.CAP
	114
		;Assignment
		;first argument
	XGTVAL
		;$B1.ORIGIN
	122
		;second argument
	XPUSH
	L41
	XTTMUL
	XCHNGE
		;$B1.CAP_FINAL
	112
		;Affixment
		;Assignment
	XPUSH
	L42
	XCHNGE
		;$B1._T1
	106
	XMCLC
	150
		;BARM
	14
	XMCLC
	152
		;$B1.BGRASP
	110
		;End of affixment
		;Move
	XMOVE
	L43
	4
		;Move
	XMOVE
	L44
	10
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.NUT_GRASP
	120
		;second argument
	XPUSH
	L45
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	60
		;first argument
	XGTVAL
		;$B1.NUT_GRASP
	120
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	62
	XMOVE
	L46
	4
	XGTVAL
		;
	60
	XCHNGE
		;BDEPROACH
	30
		;Center
	XCENTER
	L51
	14
		;Assignment
	XGTVAL
		;$B1.BGRASP
	110
	XCHNGE
		;$B1.NUT_GRASP
	120
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
		;second argument
	XPUSH
	L52
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	56
	XMOVE
	L53
	4
		;Affixment
		;Assignment
	XPUSH
	L56
	XCHNGE
		;$B1._T2
	100
	XMCLC
	144
		;$B1.NUT_GRASP_FINAL
	116
	XMCLC
	146
		;$B1.NUT_TURN_INITIAL
	104
		;End of affixment
		;Affixment
		;Assignment
	XPUSH
	L57
	XCHNGE
		;$B1._T3
	76
	XMCLC
	140
		;$B1.NUT_GRASP_FINAL
	116
	XMCLC
	142
		;$B1.NUT_TURN_FINAL
	102
		;End of affixment
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
		;second argument
	XPUSH
	L60
	XTVSUB
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	54
		;Enable condition monitor
	XCMENBL
	126
	XMOVE
	L61
	4
		;Disable condition monitor
	XCMDSBL
	126
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
	XTORIEN
		;second argument
		;first argument
	XGTVAL
		;$B1.BGRASP
	110
	XTPOS
	XTMAKE
	XCHNGE
		;$B1.NUT_GRASP_FINAL
	116
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.NUT_TURN_INITIAL
	104
		;second argument
	XPUSH
	L60
	XTVSUB
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	52
	XPUSH
	L6
	XTFRCST
	404
	XPUSH
	L64
	XCOMPLY
	2004
	XMOVE
	L65
	4
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Assignment
	XPUSH
	L70
	XCHNGE
		;$B1.SEATED
	74
		;PAUSE
	XPUSH
	L71
	XPAUSE
		;WHILE Loop
L72:		;first argument
	XGTVAL
		;$B1.SEATED
	74
	XNOT
	XJUMPC
	L73
		;BLOCK
	XMVAR
		;
	154
	0
	XJUMP
	L74
		;Condition monitor checker
L75:	XPUSH
	L76
	XCMFORCE
		;BLOCK
		;Stop
	XSTOP
	4
		;Assignment
	XPUSH
	L71
	XCHNGE
		;$B1.SEATED
	74
		;Block end cleanup
		;End of BLOCK
	XCMDONE
		;Create condition monitor
L74:	XCMMAK
	156
	3
	L75
	105004
		;Move
		;first argument
	XGTVAL
		;$B1.NUT_TURN_FINAL
	102
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	154
	XPUSH
	L6
	XTFRCST
	404
		;Enable condition monitor
	XCMENBL
	156
	XMOVE
	L77
	4
		;Disable condition monitor
	XCMDSBL
	156
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Move
	XMOVE
	L101
	10
		;IF
		;first argument
	XGTVAL
		;$B1.SEATED
	74
	XNOT
	XJUMPC
	L102
		;THEN
		;BLOCK
	XMVAR
		;
	160
		;
	162
	0
		;Move
		;first argument
	XGTVAL
		;$B1.NUT_GRASP_FINAL
	116
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	160
		;first argument
	XGTVAL
		;$B1.NUT_TURN_INITIAL
	104
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	162
	XMOVE
	L104
	4
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Center
	XCENTER
	L107
	14
		;Block end cleanup
	XKVAR
		;
	160
		;
	162
	0
		;End of BLOCK
	XJUMP
	L103
L102:		;ELSE
L103:		;FI
		;Block end cleanup
	XCMDEST
	156
	0
	XKVAR
		;
	154
	0
		;End of BLOCK
	XJUMP
	L72
L73:		;END WHILE
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.CAP
	114
		;second argument
	XPUSH
	L45
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	44
		;first argument
	XPUSH
	L110
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	46
		;first argument
	XGTVAL
		;$B1.CAP
	114
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	50
	XMOVE
	L111
	4
	XGTVAL
		;
	44
	XCHNGE
		;BDEPROACH
	30
		;Center
	XCENTER
	L115
	14
		;Affixment
		;Assignment
	XPUSH
	L116
	XCHNGE
		;$B1._T4
	66
	XMCLC
	134
		;$B1.CAP_FINAL
	112
	XMCLC
	136
		;$B1.CAP_TURN_INITIAL
	72
		;End of affixment
		;Affixment
		;Assignment
	XPUSH
	L117
	XCHNGE
		;$B1._T5
	64
	XMCLC
	130
		;$B1.CAP_FINAL
	112
	XMCLC
	132
		;$B1.CAP_TURN_FINAL
	70
		;End of affixment
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
		;second argument
	XPUSH
	L120
	XTVADD
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	42
	XMOVE
	L121
	4
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
		;second argument
	XPUSH
	L124
	XTVSUB
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	40
	XPUSH
	L6
	XTFRCST
	404
		;Enable condition monitor
	XCMENBL
	124
	XMOVE
	L125
	4
		;Disable condition monitor
	XCMDSBL
	124
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Move
		;first argument
		;first argument
	XGTVAL
		;$B1.CAP_TURN_INITIAL
	72
		;second argument
	XPUSH
	L130
	XTVSUB
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	36
	XPUSH
	L6
	XTFRCST
	404
	XPUSH
	L64
	XCOMPLY
	2004
	XMOVE
	L131
	4
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Assignment
		;first argument
		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
	XTORIEN
		;second argument
		;first argument
	XGTVAL
		;$B1.BGRASP
	110
	XTPOS
	XTMAKE
	XCHNGE
		;$B1.CAP_FINAL
	112
		;Assignment
	XPUSH
	L70
	XCHNGE
		;$B1.SEATED
	74
		;WHILE Loop
L134:		;first argument
	XGTVAL
		;$B1.SEATED
	74
	XNOT
	XJUMPC
	L135
		;BLOCK
	XMVAR
		;
	154
	0
	XJUMP
	L136
		;Condition monitor checker
L137:	XPUSH
	L76
	XCMFORCE
		;BLOCK
		;Stop
	XSTOP
	4
		;Assignment
	XPUSH
	L71
	XCHNGE
		;$B1.SEATED
	74
		;Block end cleanup
		;End of BLOCK
	XCMDONE
		;Create condition monitor
L136:	XCMMAK
	156
	3
	L137
	105004
		;Move
		;first argument
	XGTVAL
		;$B1.CAP_TURN_FINAL
	70
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	154
	XPUSH
	L6
	XTFRCST
	404
		;Enable condition monitor
	XCMENBL
	156
	XMOVE
	L140
	4
		;Disable condition monitor
	XCMDSBL
	156
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Move
	XMOVE
	L142
	10
		;IF
		;first argument
	XGTVAL
		;$B1.SEATED
	74
	XNOT
	XJUMPC
	L143
		;THEN
		;BLOCK
	XMVAR
		;
	160
		;
	162
	0
		;Move
		;first argument
	XGTVAL
		;$B1.CAP_FINAL
	112
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	160
		;first argument
	XGTVAL
		;$B1.CAP_TURN_INITIAL
	72
		;second argument
		;first argument
	XGTVAL
		;$B1._T1
	106
	XTINVRT
	XTTMUL
	XCHNGE
		;
	162
	XMOVE
	L145
	4
	XPUSH
	L6
	XCHNGE
		;BDEPROACH
	30
		;Center
	XCENTER
	L150
	14
		;Block end cleanup
	XKVAR
		;
	160
		;
	162
	0
		;End of BLOCK
	XJUMP
	L144
L143:		;ELSE
L144:		;FI
		;Block end cleanup
	XCMDEST
	156
	0
	XKVAR
		;
	154
	0
		;End of BLOCK
	XJUMP
	L134
L135:		;END WHILE
		;Move
	XMOVE
	L151
	4
		;Block end cleanup
	XCMDEST
	124
	126
	0
	XKVAR
		;
	36
		;
	40
		;
	42
		;
	44
		;
	46
		;
	50
		;
	52
		;
	54
		;
	56
		;
	60
		;
	62
		;$B1._T5
	64
		;$B1._T4
	66
		;$B1.CAP_TURN_FINAL
	70
		;$B1.CAP_TURN_INITIAL
	72
		;$B1.SEATED
	74
		;$B1._T3
	76
		;$B1._T2
	100
		;$B1.NUT_TURN_FINAL
	102
		;$B1.NUT_TURN_INITIAL
	104
		;$B1._T1
	106
		;$B1.BGRASP
	110
		;$B1.CAP_FINAL
	112
		;$B1.CAP
	114
		;$B1.NUT_GRASP_FINAL
	116
		;$B1.NUT_GRASP
	120
		;$B1.ORIGIN
	122
	0
		;End of BLOCK
	XENDP
		;End of program